##(last performed on Monday, October 6, 2003 on R version 1.6.2)
##Remeber to prepare the data


##Shaw's (1999 p. 910) Table 4 (published as 2SLS) Using OLS
REPTV.LS<-lm(REPTV ~ REPSTRAT.NEW + DEMTV + COMP + EV + TVADCOST + COMP:EV + COMP:TVADCOST + DUMMY92 + DUMMY96) ##Col 1
DEMTV.LS<-lm(DEMTV ~ DEMSTRAT.NEW + REPTV + COMP + EV + TVADCOST + COMP:EV + COMP:TVADCOST + DUMMY92 + DUMMY96) ##Col 2
REPAP.LS<-lm(REPPREZ ~ REPSTRAT.NEW + DEMPREZ + COMP + EV + TVADCOST + COMP:EV + COMP:TVADCOST + DUMMY92 + DUMMY96) ##Col 3
DEMAP.LS<-lm(DEMPREZ ~ DEMSTRAT.NEW + REPPREZ + COMP + EV + TVADCOST + COMP:EV + COMP:TVADCOST + DUMMY92 + DUMMY96) ##Col 4
